{smcl}
{com}{sf}{ul off}{txt}{.-}
      name:  {res}<unnamed>
       {txt}log:  {res}D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\code\estimation\basics_rel_demand\logs/4_summary.smcl
  {txt}log type:  {res}smcl
 {txt}opened on:  {res} 9 Jul 2025, 17:15:47
{txt}
{com}. 
. 
. ******************************************************************
. **   A. Download child panel with reasonably aged parents*********
. ******************************************************************
. 
. clear 
{txt}
{com}. use "$data/psid_fam.dta", replace
{txt}
{com}. 
. 
. *Combine HS dropouts and HS graduates into one category for the new educational classification
. 
. 
. foreach p in f m {c -(}
{txt}  2{com}. gen `p'ed_cat_1= 1 if `p'ed_cat==1|`p'ed_cat==2
{txt}  3{com}. replace `p'ed_cat_1= 2 if `p'ed_cat==3
{txt}  4{com}. replace `p'ed_cat_1= 3 if  `p'ed_cat==4
{txt}  5{com}. 
. *Generate a dummy variable for <HS or HS
. gen `p'ed_hsd_hs=1-(1-`p'ed_hs)*(1- `p'ed_hsd)
{txt}  6{com}. 
. {c )-}
{txt}(23,156 missing values generated)
(4,186 real changes made)
(5,802 real changes made)
(13,168 missing values generated)
(17,561 missing values generated)
(9,925 real changes made)
(7,583 real changes made)
(53 missing values generated)

{com}. 
. label define edg 1 "<HS or HS" 2 "Some coll." 3 "College+"
{txt}
{com}. label values  med_cat_1 edg
{txt}
{com}. label values  fed_cat_1 edg
{txt}
{com}. 
. *Generate dummy variables for <HS or HS and SC or C+
. gen med_cat_2=1 if med_cat_1==1
{txt}(17,561 missing values generated)

{com}. replace med_cat_2=2 if med_cat_1==2|med_cat_1==3
{txt}(17,508 real changes made)

{com}. 
. label define edg_2 1 "<HS or HS" 2 "SC or C+"
{txt}
{com}. label values med_cat_2 edg_2
{txt}
{com}. 
. 
. * Create 2-year age groups 
.      
. gen age_gr=.
{txt}(32,527 missing values generated)

{com}. replace age_gr=1 if age>=0&age<=2
{txt}(889 real changes made)

{com}. replace age_gr=2 if age>=3&age<=4 
{txt}(1,879 real changes made)

{com}. replace age_gr=3 if age>=5&age<=6 
{txt}(2,994 real changes made)

{com}. replace age_gr=4 if age>=7&age<=8
{txt}(3,949 real changes made)

{com}. replace age_gr=5 if age>=9&age<=10
{txt}(4,899 real changes made)

{com}. replace age_gr=6 if age>=11&age<=12
{txt}(5,526 real changes made)

{com}. 
. label define ageg 1 "0-2" 2 "3-4" 3 "5-6" 4 "7-8" 5 "9-10" 6 "11-12"
{txt}
{com}. label values  age_gr ageg
{txt}
{com}. 
. * Compute shares of expenditures in total expenditures
. 
. gen totinv = tau_mf_exp + hhinvest + chcare_imp
{txt}(30,185 missing values generated)

{com}. replace totinv=. if totinv==0
{txt}(9 real changes made, 9 to missing)

{com}. 
. gen hhinv_exp_share = hhinvest/totinv
{txt}(30,194 missing values generated)

{com}. gen chcare_imp_share = chcare_imp/totinv
{txt}(30,194 missing values generated)

{com}. gen tau_m_exp_share = tau_m_exp/totinv
{txt}(30,194 missing values generated)

{com}. gen tau_f_exp_share = tau_f_exp/totinv
{txt}(31,043 missing values generated)

{com}. gen tau_mf_exp_share = tau_mf_exp/totinv
{txt}(30,194 missing values generated)

{com}.         
. 
. ******************************************************************
. ***********    B. Sample restrictions ***************
. ******************************************************************
. 
. * restrict to those with some measure of investment in CDS_invest_ind
. keep if CDS_invest_ind==1
{txt}(25,600 observations deleted)

{com}. 
. ***********    Keep kids ages 5-12   ***************
. 
. keep if age>=5 & age<=12
{txt}(3,277 observations deleted)

{com}. 
. ************ Families with only 1 or 2 children ages<=12 ************
. 
. keep if num_0_12<=2
{txt}(888 observations deleted)

{com}. 
. ************************************ YEAR 2002 *********************************
. keep if year==2002
{txt}(1,584 observations deleted)

{com}. 
. 
. ********************************************************************************
. ***************************** C. SUMMARY STATISTICS ****************************
. ********************************************************************************
. 
.         disp _n(5) "********************************************************************************"
{res}




********************************************************************************
{txt}
{com}.         disp _n(5) "********************************************************************************"
{res}




********************************************************************************
{txt}
{com}.         disp "All children (includes families with zero child care spending (PSID 2002)"
{res}All children (includes families with zero child care spending (PSID 2002)
{txt}
{com}.         disp "********************************************************************************" 
{res}********************************************************************************
{txt}
{com}.         disp _n(5) "********************************************************************************"
{res}




********************************************************************************
{txt}
{com}. 
.         disp _n(5) "********************************************************************************"
{res}




********************************************************************************
{txt}
{com}.         disp " Summary of Expenditures"
{res} Summary of Expenditures
{txt}
{com}.         disp "********************************************************************************" 
{res}********************************************************************************
{txt}
{com}. 
.                 
.                 /////////////////////////////////////////////////////////////////////////////////////
>                 *** Appendix Figure G-1: Weekly child investment expenditures by mother's education, 
.                 *** includes families with zero child care spending (PSID 2002) 
.                 /////////////////////////////////////////////////////////////////////////////////////
>                 *** Single mothers 
. 
.                 quietly graph bar tau_m_exp chcare_imp hhinvest if curr_married==0,  /*
>                         */ over(med_cat_1, relabel(1 "<HS or HS" 2 "Some coll." 3 "College+")) stack   /*
> 
>                         */ bar(1, color(navy)) bar(2, color(dkorange)) bar(3, color(dkgreen))   /*
>                         */ legend( label(1 "Mother's time") label(2  "Childcare") label(3 "HH goods")  region(lcolor(white))   rows(2)) /*
>                         */ plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) ylabel(0(50)250, angle(horizontal)) /*
>                            title("Single mothers: Investment expenditures by mother's education" "2002 PSID", size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/bar_graph_single_exp.pdf", as(pdf) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/bar_graph_single_exp.pdf written in PDF format)

{com}. 
.                 ***Two-parent households
.                                 
.                 quietly graph bar tau_m_exp tau_f_exp  chcare_imp hhinvest if curr_married==1,/*
>                         */ over(med_cat_1, relabel(1 "<HS or HS" 2 "Some coll." 3 "College+")) stack   /*
> 
>                         */ bar(1, color(navy)) bar(2, color(eltblue)) bar(3, color(dkorange)) bar(4, color(dkgreen))   /*
>                                         */ legend( label(1 "Mother's  time") label(2 "Father's  time")  label(3  "Childcare") label(4 "HH goods")    region(lcolor(white))    rows(2)) ylabel(, angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) ylabel(0(100)600, angle(horizontal)) /*
>                           title("Two-parent HH: Investment expenditures by mother's education" "2002 PSID",  size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/bar_graph_married_exp.pdf", as(pdf) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/bar_graph_married_exp.pdf written in PDF format)

{com}. 
. 
.                 /////////////////////////////////////////////////////////////////////////////////////
>                 *** Percentage difference in spending on goods and on childcare and in mothers' time investments for all vs. working mothers
.                 
.                 *** Goods investments
.                 egen avg_hhinvest_all = mean(hhinvest)
{txt}
{com}.                 egen avg_hhinvest_work = mean(hhinvest) if (pos_hrs_m==1)
{txt}(249 missing values generated)

{com}.                 disp "Average spending on goods for all mothers"
{res}Average spending on goods for all mothers
{txt}
{com}.                 disp avg_hhinvest_all
{res}17.609955
{txt}
{com}.                 disp "Average spending on goods for working mothers"
{res}Average spending on goods for working mothers
{txt}
{com}.                 disp avg_hhinvest_work
{res}17.577003
{txt}
{com}.                 disp "Percentage difference in spending on goods investments for all vs. working mothers"
{res}Percentage difference in spending on goods investments for all vs. working mothers
{txt}
{com}.                 disp 100*(avg_hhinvest_work - avg_hhinvest_all)/avg_hhinvest_all
{res}-.18711777
{txt}
{com}.                 
.                 *** Time investments
.                 egen avg_tau_m_all = mean(tau_m)
{txt}
{com}.                 egen avg_tau_m_work = mean(tau_m) if (pos_hrs_m==1)
{txt}(249 missing values generated)

{com}.                 disp "Average time investments for all mothers"
{res}Average time investments for all mothers
{txt}
{com}.                 disp avg_tau_m_all
{res}11.731848
{txt}
{com}.                 disp "Average time investments for working mothers"
{res}Average time investments for working mothers
{txt}
{com}.                 disp avg_tau_m_work
{res}11.408395
{txt}
{com}.                 disp "Percentage difference in mothers' time investments for all vs. working mothers"
{res}Percentage difference in mothers' time investments for all vs. working mothers
{txt}
{com}.                 disp 100*(avg_tau_m_work - avg_tau_m_all)/avg_tau_m_all
{res}-2.7570503
{txt}
{com}.                 
.                 *** Childcare
.                 egen avg_chcare_imp_all = mean(chcare_imp)
{txt}
{com}.                 egen avg_chcare_imp_work = mean(chcare_imp) if (pos_hrs_m==1)
{txt}(249 missing values generated)

{com}.                 disp "Average spending on childcare for all mothers"
{res}Average spending on childcare for all mothers
{txt}
{com}.                 disp avg_chcare_imp_all
{res}11.732131
{txt}
{com}.                 disp "Average spending on childcare for working mothers"
{res}Average spending on childcare for working mothers
{txt}
{com}.                 disp avg_chcare_imp_work
{res}13.419007
{txt}
{com}.                 disp "Percentage difference in spending on childcare for all vs. working mothers"
{res}Percentage difference in spending on childcare for all vs. working mothers
{txt}
{com}.                 disp 100*(avg_chcare_imp_work - avg_chcare_imp_all)/avg_chcare_imp_all
{res}14.37826
{txt}
{com}.                 
.                 
.         disp _n(5) "********************************************************************************"
{res}




********************************************************************************
{txt}
{com}.         disp "Summary Expenditure Shares"
{res}Summary Expenditure Shares
{txt}
{com}.         disp "********************************************************************************" 
{res}********************************************************************************
{txt}
{com}. 
. 
.                 
.                 /////////////////////////////////////////////////////////////////////////////////////
>                 *** Appendix Figure G-2: Expenditure shares by mother's education, 
.                 *** includes families with zero child care spending (PSID, 2002)
.                 /////////////////////////////////////////////////////////////////////////////////////
> 
.                 *** Single mothers 
.                 quietly graph bar tau_m_exp_share chcare_imp_share hhinv_exp_share  if curr_married==0, /*
>                         */ over(med_cat_1, relabel(1 "<HS or HS" 2 "Some coll." 3 "College+")) stack   /*
> 
>                         */ bar(1, color(navy)) bar(2, color(dkorange)) bar(3, color(dkgreen))   /*
>                                         */ legend( label(1 "Mother's time") label(2  "Childcare") label(3 "HH goods")  region(lcolor(white))    rows(2)) ylabel( 0(0.2)1, format(%03.1f) angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /* title("Single mothers: Investment expenditure shares by mother's education" "2002 PSID", size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/bar_graph_single_share.pdf", as(pdf) replace       
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/bar_graph_single_share.pdf written in PDF format)

{com}.                                 
.                         
.                 ***Two-parent households        
.                 quietly graph bar tau_m_exp_share tau_f_exp_share  chcare_imp_share hhinv_exp_share  if curr_married==1, /*
>                         */over(med_cat_1, relabel(1 "<HS or HS" 2 "Some coll." 3 "College+")) stack  /*
> 
>                         */ bar(1, color(navy)) bar(2, color(eltblue)) bar(3, color(dkorange)) bar(4, color(dkgreen))   /*
>                                                 */ legend( label(1 "Mother's  time") label(2 "Father's  time")  label(3  "Childcare") label(4 "HH goods")   region(lcolor(white))    rows(2)) ylabel(0(0.2)1, format(%03.1f)  angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /* title("Two-parent HH: Investment expenditure shares by mother's education" "2002 PSID", size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/bar_graph_married_share.pdf", as(pdf) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/bar_graph_married_share.pdf written in PDF format)

{com}.                                         
. 
. 
.         
.         
.         
.         disp _n(5) "********************************************************************************"
{res}




********************************************************************************
{txt}
{com}.         disp _n(5) "********************************************************************************"
{res}




********************************************************************************
{txt}
{com}.         disp "Children with positive imputed childcare expenditures"
{res}Children with positive imputed childcare expenditures
{txt}
{com}.         disp "********************************************************************************" 
{res}********************************************************************************
{txt}
{com}.         disp _n(5) "********************************************************************************"
{res}




********************************************************************************
{txt}
{com}.         
.     *Sample restriction: positive imputed childcare expenditures
.    
.     keep if pos_chcare_imp==1
{txt}(773 observations deleted)

{com}.         
.         
.         disp _n(5) "********************************************************************************"
{res}




********************************************************************************
{txt}
{com}.         disp " Summary of Expenditures"
{res} Summary of Expenditures
{txt}
{com}.         disp "********************************************************************************" 
{res}********************************************************************************
{txt}
{com}.         
.                 /////////////////////////////////////////////////////////////////////////////////////
>                 *** Figure 1 : Weekly child investment expenditures by child's age (PSID, 2002)
.                 /////////////////////////////////////////////////////////////////////////////////////
> 
.                 *** Single mothers      (color)
.                 quietly graph bar tau_m_exp  chcare_imp hhinvest if curr_married==0, /*
>                         */ over(age_gr) stack /*
> 
>                         */ bar(1, color(navy)) bar(2, color(dkorange)) bar(3, color(dkgreen))   /*
>                                                 */ legend( label(1 "Mother's  time")  label(2  "Childcare") label(3 "HH goods")  region(lcolor(white))   rows(2)) ylabel(0(100)300, angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /*  title("Single mothers: Investment expenditures by child's age" "2002 PSID",  size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/fig1a_color.eps", as(eps) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/fig1a_color.eps written in EPS format)

{com}.                         
.                 *** Single mothers      (bw)
.                 quietly graph bar tau_m_exp  chcare_imp hhinvest if curr_married==0, /*
>                         */ over(age_gr) stack /*
> 
>                         */ bar(1, color(gs6)) bar(2, color(gs11)) bar(3, color(gs0))   /*
>                                                 */ legend( label(1 "Mother's  time")  label(2  "Childcare") label(3 "HH goods")  region(lcolor(white))   rows(2)) ylabel(0(100)300, angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /*  title("Single mothers: Investment expenditures by child's age" "2002 PSID",  size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/fig1a_bw.eps", as(eps) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/fig1a_bw.eps written in EPS format)

{com}. 
.                 ***Two-parent households (color)
.                 quietly graph bar tau_m_exp tau_f_exp chcare_imp hhinvest   if curr_married==1,/*
>                         */ over(age_gr)stack /*
> 
>                         */ bar(1, color(navy)) bar(2, color(eltblue)) bar(3, color(dkorange)) bar(4, color(dkgreen))   /*
>                         */ legend( label(1 "Mother's  time") label(2 "Father's  time")  label(3  "Childcare") label(4 "HH goods")   region(lcolor(white))   rows(2)) ylabel(0(100)800, angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /*  title("Two-parent HH: Investment expenditures by child's age" "2002 PSID",  size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/fig1b_color.eps", as(eps) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/fig1b_color.eps written in EPS format)

{com}.                         
.                 ***Two-parent households (bw)
.                 quietly graph bar tau_m_exp tau_f_exp chcare_imp hhinvest   if curr_married==1,/*
>                         */ over(age_gr)stack /*
> 
>                         */ bar(1, color(gs6)) bar(2, color(gs15) lcolor(black)) bar(3, color(gs11)) bar(4, color(gs0))  /*
>                         */ legend( label(1 "Mother's  time") label(2 "Father's  time")  label(3  "Childcare") label(4 "HH goods")   region(lcolor(white))   rows(2)) ylabel(0(100)800, angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /*  title("Two-parent HH: Investment expenditures by child's age" "2002 PSID",  size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/fig1b_bw.eps", as(eps) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/fig1b_bw.eps written in EPS format)

{com}. 
. 
.                         
.                         
.                 /////////////////////////////////////////////////////////////////////////////////////
>                 *** Appendix Figure G-4 : Weekly child investment expenditures by number of children and mother's education (PSID, 2002)
.                 /////////////////////////////////////////////////////////////////////////////////////
> 
.                 *** Single mothers      
.                 quietly graph bar tau_m_exp  chcare_imp hhinvest if curr_married==0, /*
>                         */ over(med_cat_2) /*
>                         */ over(num_0_12, relabel(1 "1 child" 2 "2 children")) stack /*
>                         
>                         */ bar(1, color(navy)) bar(2, color(dkorange)) bar(3, color(dkgreen))   /*
>                                                 */ legend( label(1 "Mother's  time")  label(2  "Childcare") label(3 "HH goods")  region(lcolor(white))   rows(2)) ylabel(0(100)300, angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /*  title("Single mothers: Investment expenditures by family size and education" "2002 PSID",  size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/bar_graph_ch_numched_single_exp.pdf", as(pdf) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/bar_graph_ch_numched_single_exp.pdf written in PDF format)

{com}. 
.                 ***Two-parent households
.                 quietly graph bar tau_m_exp tau_f_exp chcare_imp hhinvest   if curr_married==1,/*
>                         */ over(med_cat_2) /*
>                         */ over(num_0_12, relabel(1 "1 child" 2 "2 children")) stack /*
>                         
>                         */ bar(1, color(navy)) bar(2, color(eltblue)) bar(3, color(dkorange)) bar(4, color(dkgreen))   /*
>                         */ legend( label(1 "Mother's  time") label(2 "Father's  time")  label(3  "Childcare") label(4 "HH goods")   region(lcolor(white))   rows(2)) ylabel(0(100)800, angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /*  title("Two-parent HH: Investment expenditures by family size and education" "2002 PSID",  size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/bar_graph_ch_numched_married_exp.pdf", as(pdf) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/bar_graph_ch_numched_married_exp.pdf written in PDF format)

{com}. 
.                 
.                 
.                         
.                 /////////////////////////////////////////////////////////////////////////////////////
>                 *** Figure 2: Weekly child investment expenditures by mother's education (PSID, 2002)
.                 /////////////////////////////////////////////////////////////////////////////////////
> 
.                 *** Single mothers (color)
.                 quietly graph bar tau_m_exp chcare_imp hhinvest if curr_married==0, /*
>                         */ over(med_cat_1, relabel(1 "<HS or HS" 2 "Some coll." 3 "College+")) stack   /*
> 
>                         */ bar(1, color(navy)) bar(2, color(dkorange)) bar(3, color(dkgreen))   /*
>                         */ legend( label(1 "Mother's time") label(2  "Childcare") label(3 "HH goods")  region(lcolor(white))   rows(2)) /* title("Single mothers: Investment expenditures by mother's education" "2002 PSID", size(medium)) */ /*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) ylabel(0(100)400, angle(horizontal)) 
{txt}
{com}.                                         
.                         graph export "$graph/fig2a_color.eps", as(eps) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/fig2a_color.eps written in EPS format)

{com}.                         
.                 *** Single mothers (bw)
.                 quietly graph bar tau_m_exp chcare_imp hhinvest if curr_married==0, /*
>                         */ over(med_cat_1, relabel(1 "<HS or HS" 2 "Some coll." 3 "College+")) stack   /*
> 
>                         */ bar(1, color(gs6)) bar(2, color(gs11)) bar(3, color(gs0))   /*
>                         */ legend( label(1 "Mother's time") label(2  "Childcare") label(3 "HH goods")  region(lcolor(white))   rows(2)) /* title("Single mothers: Investment expenditures by mother's education" "2002 PSID", size(medium)) */ /*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) ylabel(0(100)400, angle(horizontal)) 
{txt}
{com}.                                         
.                         graph export "$graph/fig2a_bw.eps", as(eps) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/fig2a_bw.eps written in EPS format)

{com}.                                 
.                 ***Two-parent households (color)
.                 quietly graph bar tau_m_exp tau_f_exp  chcare_imp hhinvest  if curr_married==1,/*
>                         */ over(med_cat_1, relabel(1 "<HS or HS" 2 "Some coll." 3 "College+")) stack   /*
> 
>                         */ bar(1, color(navy)) bar(2, color(eltblue)) bar(3, color(dkorange)) bar(4, color(dkgreen))   /*
>                                         */ legend( label(1 "Mother's  time") label(2 "Father's  time")  label(3  "Childcare") label(4 "HH goods")    region(lcolor(white))   rows(2)) /*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) ylabel(0(100)600, angle(horizontal)) /* title("Two-parent HH: Investment expenditures by mother's education" "2002 PSID",  size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/fig2b_color.eps", as(eps) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/fig2b_color.eps written in EPS format)

{com}. 
.                 ***Two-parent households (bw)
.                 quietly graph bar tau_m_exp tau_f_exp  chcare_imp hhinvest  if curr_married==1,/*
>                         */ over(med_cat_1, relabel(1 "<HS or HS" 2 "Some coll." 3 "College+")) stack   /*
> 
>                         */ bar(1, color(gs6)) bar(2, color(gs15) lcolor(black)) bar(3, color(gs11)) bar(4, color(gs0))   /*
>                                         */ legend( label(1 "Mother's  time") label(2 "Father's  time")  label(3  "Childcare") label(4 "HH goods")    region(lcolor(white))   rows(2)) /*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) ylabel(0(100)600, angle(horizontal)) /* title("Two-parent HH: Investment expenditures by mother's education" "2002 PSID",  size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/fig2b_bw.eps", as(eps) replace             
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/fig2b_bw.eps written in EPS format)

{com}. 
.                 
. 
.         
.         disp _n(5) "********************************************************************************"
{res}




********************************************************************************
{txt}
{com}.         disp "Summary of Expenditure Shares"
{res}Summary of Expenditure Shares
{txt}
{com}.         disp "********************************************************************************" 
{res}********************************************************************************
{txt}
{com}. 
.         
. 
.         
.                 /////////////////////////////////////////////////////////////////////////////////////
>                 *** Figure 4: Expenditure shares by mother's education (PSID, 2002)
.                 /////////////////////////////////////////////////////////////////////////////////////
> 
.                 *** Single mothers (color)      
. 
.                         
.                 quietly graph bar tau_m_exp_share chcare_imp_share hhinv_exp_share  if curr_married==0, /*
>                         */ over(med_cat_1, relabel(1 "<HS or HS" 2 "Some coll." 3 "College+")) stack   /*
> 
>                         */ bar(1, color(navy)) bar(2, color(dkorange)) bar(3, color(dkgreen))   /*
>                                         */ legend( label(1 "Mother's time") label(2  "Childcare") label(3 "HH goods")  region(lcolor(white))   rows(2)) ylabel( 0(0.2)1, format(%03.1f) angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /* title("Single mothers: Investment expenditure shares by mother's education" "2002 PSID", size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/fig4a_color.eps", as(eps) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/fig4a_color.eps written in EPS format)

{com}.                         
.                 *** Single mothers (bw) 
. 
.                         
.                 quietly graph bar tau_m_exp_share chcare_imp_share hhinv_exp_share  if curr_married==0, /*
>                         */ over(med_cat_1, relabel(1 "<HS or HS" 2 "Some coll." 3 "College+")) stack   /*
> 
>                         */ bar(1, color(gs6)) bar(2, color(gs11)) bar(3, color(gs0))   /*
>                                         */ legend( label(1 "Mother's time") label(2  "Childcare") label(3 "HH goods")  region(lcolor(white))   rows(2)) ylabel( 0(0.2)1, format(%03.1f) angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /* title("Single mothers: Investment expenditure shares by mother's education" "2002 PSID", size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/fig4a_bw.eps", as(eps) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/fig4a_bw.eps written in EPS format)

{com}.                                 
.                         
.                 *** Two-parent households (color)
.                         
.                 quietly graph bar tau_m_exp_share tau_f_exp_share  chcare_imp_share hhinv_exp_share  if curr_married==1, /*
>                         */ over(med_cat_1, relabel(1 "<HS or HS" 2 "Some coll." 3 "College+")) stack  /*
> 
>                         */ bar(1, color(navy)) bar(2, color(eltblue)) bar(3, color(dkorange)) bar(4, color(dkgreen))   /*
>                                                 */ legend( label(1 "Mother's  time") label(2 "Father's  time")  label(3  "Childcare") label(4 "HH goods")   region(lcolor(white))   rows(2)) ylabel(0(0.2)1, format(%03.1f)  angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /* title("Two-parent HH: Investment expenditure shares by mother's education" "2002 PSID", size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/fig4b_color.eps", as(eps) replace  
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/fig4b_color.eps written in EPS format)

{com}.                         
.                 *** Two-parent households (bw)  
.                         
.                 quietly graph bar tau_m_exp_share tau_f_exp_share  chcare_imp_share hhinv_exp_share  if curr_married==1, /*
>                         */ over(med_cat_1, relabel(1 "<HS or HS" 2 "Some coll." 3 "College+")) stack  /*
> 
>                         */ bar(1, color(gs6)) bar(2, color(gs15) lcolor(black)) bar(3, color(gs11)) bar(4, color(gs0))   /*
>                                                 */ legend( label(1 "Mother's  time") label(2 "Father's  time")  label(3  "Childcare") label(4 "HH goods")   region(lcolor(white))   rows(2)) ylabel(0(0.2)1, format(%03.1f)  angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /* title("Two-parent HH: Investment expenditure shares by mother's education" "2002 PSID", size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/fig4b_bw.eps", as(eps) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/fig4b_bw.eps written in EPS format)

{com}.                         
.                         
.                         
.                 
.                 /////////////////////////////////////////////////////////////////////////////////////
>                 *** Appendix Figure G-3: Expenditure shares by child's age (PSID, 2002)
.                 /////////////////////////////////////////////////////////////////////////////////////
> 
.                 *** Single mothers              
. 
.                                 
.                 quietly graph bar tau_m_exp_share chcare_imp_share hhinv_exp_share  if curr_married==0, /*
>                         */ over(age_gr) stack /*
>                         */ bar(1, color(navy)) bar(2, color(dkorange)) bar(3, color(dkgreen))   /*
>                                                         */ legend( label(1 "Mother's time") label(2  "Childcare") label(3 "HH goods")   region(lcolor(white))   rows(2)) ylabel( 0(0.2)1, format(%03.1f) angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /*  title("Single mothers: Investment expenditures shares by child's age" "2002 PSID",  size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/bar_graph_ch_age_single_share.pdf", as(pdf) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/bar_graph_ch_age_single_share.pdf written in PDF format)

{com}.                                 
.                 *** Two-parent households       
.                 quietly graph bar tau_m_exp_share tau_f_exp_share  chcare_imp_share hhinv_exp_share  if curr_married==1,/*
>                         */ over(age_gr) stack /*
> 
>                         */ bar(1, color(navy)) bar(2, color(eltblue)) bar(3, color(dkorange)) bar(4, color(dkgreen))   /*
>                                                                 */ legend( label(1 "Mother's  time") label(2 "Father's  time")  label(3  "Childcare") label(4 "HH goods")   region(lcolor(white))   rows(2)) ylabel( 0(0.2)1, format(%03.1f) angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /*   title("Two-parent HH: Investment expenditures shares by child's age" "2002 PSID",  size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/bar_graph_ch_age_married_share.pdf", as(pdf) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/bar_graph_ch_age_married_share.pdf written in PDF format)

{com}.                         
.                         
.                         
.                         
.                 /////////////////////////////////////////////////////////////////////////////////////
>                 *** Appendix Figure G-5: Expenditure shares by number of children and mother's education (PSID, 2002)
.                 /////////////////////////////////////////////////////////////////////////////////////
> 
.                 *** Single mothers                                      
.                 quietly graph bar tau_m_exp_share chcare_imp_share hhinv_exp_share  if curr_married==0, /*
>                         */ over(med_cat_2) /*
>                         */ over(num_0_12, relabel(1 "1 child" 2 "2 children")) stack /*
>                         */ bar(1, color(navy)) bar(2, color(dkorange)) bar(3, color(dkgreen))   /*
>                                                         */ legend( label(1 "Mother's time") label(2  "Childcare") label(3 "HH goods")   region(lcolor(white))   rows(2)) ylabel( 0(0.2)1, format(%03.1f) angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /*  title("Single mothers: Investment expenditures shares by family size and education" "2002 PSID",  size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/bar_graph_ch_numched_single_share.pdf", as(pdf) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/bar_graph_ch_numched_single_share.pdf written in PDF format)

{com}.                                 
.                 *** Two-parent households       
.                 quietly graph bar tau_m_exp_share tau_f_exp_share  chcare_imp_share hhinv_exp_share  if curr_married==1,/*
>                         */ over(med_cat_2) /*
>                         */ over(num_0_12, relabel(1 "1 child" 2 "2 children")) stack /*
> 
>                         */ bar(1, color(navy)) bar(2, color(eltblue)) bar(3, color(dkorange)) bar(4, color(dkgreen))   /*
>                                                                 */ legend( label(1 "Mother's  time") label(2 "Father's  time")  label(3  "Childcare") label(4 "HH goods")   region(lcolor(white))   rows(2)) ylabel( 0(0.2)1, format(%03.1f) angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /*   title("Two-parent HH: Investment expenditures shares by family size and education" "2002 PSID",  size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/bar_graph_ch_numched_married_share.pdf", as(pdf) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/bar_graph_ch_numched_married_share.pdf written in PDF format)

{com}. 
.                         
.                         
.         disp _n(5) "********************************************************************************"
{res}




********************************************************************************
{txt}
{com}.         disp "Summary of time investment in hours"
{res}Summary of time investment in hours
{txt}
{com}.         disp "********************************************************************************" 
{res}********************************************************************************
{txt}
{com}. 
.                 
. 
.                 /////////////////////////////////////////////////////////////////////////////////////
>                 *** Figure 3: Weekly investment hours by mother's education (PSID, 2002)
.                 /////////////////////////////////////////////////////////////////////////////////////
> 
.                 *** Single mothers (color)      
. 
.                 quietly gen fake_bar=0 //generate fake zero variable to build a graph comparable to two-parent households
{txt}
{com}. 
.                 quietly graph bar tau_m fake_bar if curr_married==0, /*
>                         */ over(med_cat_1, relabel(1 "<HS or HS" 2 "Some coll." 3 "College+")) stack  /*
>                         */ bar(1, color(navy)) bar(2, color(white))   /*
>                         */ legend( label(1 "Mother's  time") label(2 " ") region(lcolor(white))   rows(2)) ylabel(0(5)15, angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /* title("Single mothers: Weekly hours with children" "by mother's education, 2002 PSID", size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/fig3a_color.eps", as(eps) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/fig3a_color.eps written in EPS format)

{com}.                         
.                 quietly drop fake_bar
{txt}
{com}.                         
.                 *** Two-parent households (color)                       
.                 quietly graph bar tau_m tau_f if curr_married==1, /*
>                         */ over(med_cat_1, relabel(1 "<HS or HS" 2 "Some coll." 3 "College+")) stack  /*
> 
>                         */ bar(1, color(navy)) bar(2, color(eltblue))    /*
>                         */ legend( label(1 "Mother's  time") label(2 "Father's  time")  region(lcolor(white))   rows(2)) ylabel(0(5)25 , angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /*  title("Two-parent HH: Weekly hours with children" "by mother's education, 2002 PSID", size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/fig3b_color.eps", as(eps) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/fig3b_color.eps written in EPS format)

{com}.                         
. 
.                 *** Single mothers (bw)
. 
.                 quietly gen fake_bar=0 //generate fake zero variable to build a graph comparable to two-parent households
{txt}
{com}. 
.                 quietly graph bar tau_m fake_bar if curr_married==0, /*
>                         */ over(med_cat_1, relabel(1 "<HS or HS" 2 "Some coll." 3 "College+")) stack  /*
>                         */ bar(1, color(gs6)) bar(2, color(white))   /*
>                         */ legend( label(1 "Mother's  time") label(2 " ") region(lcolor(white))   rows(2)) ylabel(0(5)15, angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /* title("Single mothers: Weekly hours with children" "by mother's education, 2002 PSID", size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/fig3a_bw.eps", as(eps) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/fig3a_bw.eps written in EPS format)

{com}.                         
.                 quietly drop fake_bar
{txt}
{com}.                         
.                 *** Two-parent households (bw)          
.                 quietly graph bar tau_m tau_f if curr_married==1, /*
>                         */ over(med_cat_1, relabel(1 "<HS or HS" 2 "Some coll." 3 "College+")) stack  /*
> 
>                         */ bar(1, color(gs6)) bar(2, color(gs15) lcolor(black))    /*
>                         */ legend( label(1 "Mother's  time") label(2 "Father's  time")  region(lcolor(white))   rows(2)) ylabel(0(5)25 , angle(horizontal))/*
>                         */plotregion(fcolor(white)) bgcolor(white)  graphregion(fcolor(white) ilcolor(white) lcolor(white)) /*  title("Two-parent HH: Weekly hours with children" "by mother's education, 2002 PSID", size(medium)) */
{txt}
{com}.                                         
.                         graph export "$graph/fig3b_bw.eps", as(eps) replace
{txt}(file D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\output\figures/fig3b_bw.eps written in EPS format)

{com}. 
. 
.         
.         
. log close
      {txt}name:  {res}<unnamed>
       {txt}log:  {res}D:\users\llochner\Dropbox\JOINT PROJECTS\JPE_Child_Devp_2020\FINAL_Replication_CLMP_JPE\code\estimation\basics_rel_demand\logs/4_summary.smcl
  {txt}log type:  {res}smcl
 {txt}closed on:  {res} 9 Jul 2025, 17:15:57
{txt}{.-}
{smcl}
{txt}{sf}{ul off}